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| BEGIN REAL COMMON; 00010000 
eo %% LIST/CANDE SOURCE PRUGRAM, 11°72, %%3 00010100 
Spe @OMMENTE * TITLES 85500745700 MARK XIV SYSTEM NKELEASE.  .. #, «pnganqi0. 
1 * FILE Ip! SYMBOL/LIST TAPE Ip! SYMBUL2/FILEOOO rt 00010111 
@ : * THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION + 00010112 
(ee _* AND IS NOT TO BE REPROOUCED» USEDs OR DISCLOSED ... * . QQO0dO113 
D * EXCEPT IN ACCORDANCE WITH PRUGRAM LICENSE OR UPON * 00010114 
@| * WRITTEN AUTHORIZATION UF THE PATENT OLVISION OF * 00010115 
OM anlesitateg * BURROUGHS CORPORATIONs DETROIT» MICHIGAN 43232 * Jehan cr rr 
2 * * 00010117 
@ : * CORYRIGHT (C) 19719 1972 BURROUGHS CORPORATION * 00010118 
Me eee wt AAS 20206 AA332306  AM3B66579 ee 0010119.” 
‘9 %% RANDOM UPDATE VERSION, 22% 00010200 
@: CCMMENT PROGRAM EXECUTION PROCEEDS AS FOLLOWS! 00010300 
ee we oh. READ "IP" FILEs PLACING TAB WORQS IN ARRAY "SORTA" = =. ggodigwoa 
3 UNTIL EGFMARK ¢ 100000000 ) IS OBTAINED. 00010500 
@. EACH "1P" TAB WORD IS CONSTRUCTED As? 00010600 
NS caesar ayesha ok WOelt32].0 8 TYPE CODE oo cette Gitte 00010700... 
16 CODE=0» INPUT RECORD» SEWe NOe TYPED IN BY USER 00010800 
@” CODE=2» INPUT RECORDs SEWe NO. NOT TYPEO IN BY USER 00010900 
Lil eteenee lent cee ae CODES1, SEG»+ NOe FOLLOWED BY GROUP MARK ( DELETION ) _ 00011000 
is CODE=35 "FIX" INSTRUCTION 00011100 
@* WOel 4% 4) WOe NO. OF "BASE" 00011200 
ner, SM BASE" WORDS CONTAIN DISK ADDRESSES UF TANKFILE ROWS) = 90011300 
a2 WDOeE 88 B8)= RELATIVE SEG. nO, IN TANKF ILE ROW 00011400 
@» WOeli6t 5)= CFFSET CIN WOSe) OF INPUT RECORD IN SEGMENT 00011500 
te ee WDel21227)% SEQUENCE NUo CIN OCTAL) ASSUCTATED WITH KECORD. | 00011600 
28 2) SORT ARRAY "SORTA* ACCURDING TO SEQ. NUMBER FIELD 00011700 
@ 3) MOVE SORTED "1P" WORDS TO ARRAY "SORTAA"*® 32 WOS/RONW 00011800 
Mw AD MERGE SORTED "1P" WORDS WITH "47" WORDSes = = ttn 
aa EACH "17" WORD IS CONSTRUCTED AS? 00012000 
rd] WOel 4816)= LOCATION CRECOND NOs) OF RECORD IN SOURCE FILE 00012100 
py WO L228277% SEQNO, C OCTAL ) OF RECORV ou 99012200 
st ARRAY "CHNGS®" IS USED TO STORE "CHANGE" INSTRUCTIONS 00012300 
@ * DURING THE MERGE, EACH "CHNGS" WORD [TS CONSTRUCTED AS: | 00012400 
8 ee WO E3231 BTSLOCATION CRECORD NOs) OF RECORD. In SOURCE FILE 900132500 | 
4 WOeli817=1 IF A "DELETE™ INSTRUCTIONs 00012600 
@* WOoC2tlj=1 IF A "REPLACEMENT" RECCRO ( NOT INSERTION ) 00012700 
wenn ee ee THE ROUTINE SETS "COPYTOG" TU _TRUE when A COPY =  ggun2goo 
v (SOURCE FILE TO WRKFIL) IS REQUIRED. A COPY IS REQUIRED WHEN 00012900 
@ | A) A RECORD HAS BEEN DELETED FROM THE SOURCE FILE 00013000 
fear as, Pt a . BI ALRECORD MUST BE "INSERTED" INTO THE SOURCE FILE . —s—=«.-—« 90013300 sit tes 
“4 A COPY WILL *NOT= BE REQUIRED WHEN 00013200 
@|. A) A FIX IS EXECUTED ON AN EXISTING RECORD 00013300 
Me te BD UAN MEXTSTING" RECGRD To "REPLACED" WITH A NEW RECORD 0001 3400 
19 IF PRINTING IS REQUESTED» THE REQUIRED RECORDS ARE 00013500 
@ PRINTED DURING THE MERGEe 00013600 
Mo ALL RECORDS ARE ASSUMED TO CONTAIN A_ SEQUENCE NUMBER IN == 90033700 si 
“ FIELD POSITICAS 73 THRU BO cXCEPT "TYPE DATA" FILES» 00013800 
@} WHICH ARE ADDRESSED BY RELATIVE POSITION CSTARTING WITH 00013900 
RECORD NUMBER 1) IN THE FILES fae Mititde dae fine en 6101 °5 ©. 10010 
FILE PFILE OISK SERIAL (2280)3 & "1P" FILE . 00014100 
@r FILE SOURCE DISK RANDOM (2710s30)3 % RANDOM SOURCE FILE 00014200 
—-..__ FILE SRCE._. DISK SERIAL (25 0» 0)3 % SERIAL SOURCE FILF = 00UKR00—(is—‘ts~—~™S 
FILE QLUDTAB DISK SERIAL (2230230028 % OLD "AT" FILE 00014400 
@ FILE PATCH DISK SERIAL [20%600}] (29105300); % SCRATCH PAD FILE 00014500 
p FILE NEWTAB DISK SERIAL £20230] (2305 300sSAVE 133 % NEW "GT" FILE 90034600 s—i=™ 
FILE WRKFIL DISK SERIAL C203600) (29109300eSAVE 1)3 % NEW "18S" FILE 00014700 
@} FILE MONFIL DISK SERIAL (29102300)% % MONITOR FILE 000144710 
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ARRAY SORTAAsCHNGS([023220232)3 00015000 @ 

REAL Als .A2» ABs, Ade Ble Bes B3e B4e 85s EADRSe 2, 00015100. Bt dell glist tts we 

CODE, EOFMARKs HRANGE» Is LRANGEs LINE» MAX» Nie N29 NCHRS» 00015200 1 

NCHGs» NCTs NPARAMS» NP1Rs NSEQ* NWORDs Ole Oa» 00015300 1@ 
PC* PCT» PREVs PPTRe  PSEQs PWORDs RECSZ> 2 Oo 0085400 2 | LL 3 

SEQs SZN» SZOs» TANKAORSs TCTs IPTR» TSEd» USERS 00015500 4 

BOOLEAN BFULL» BRAAKs CHANGES» CUPYTOG>» ENOTOGs EQ@LTOG» 00015600 |\@ 
 FINTOGs MONITRe MTs. NUMBERED»  PRNT» PRNTCHK* SFLGs SQUASHEDS  _. QOOAS 700 oc oct —_ 6 

DEFINE LEFTARROW = "erg; 00015800 ? 
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STREAM PROCEDURE MOVECN? AsB)s VALUE WS OL. os St seat eS yt 00016200. . a 
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BEGIN LOCAL Ms 00oU1640d 


ee ~Srss,0C NS DIS=LOC MA DlisOlels UsSis7? CHRA OO 00016500 
i SytsAs DIt=83 OStsnN WOSS MC(OS3=32 WOSs DSt=2#32 WDS)3 00916600 
4 ENDS 00016700 e 
ey. Fee ITT IIIT RII IOI IOI IGG ITO tok toot ee io ee 00010800 wares sak, Pca Rhee tae gt ees ete Sees Fa te alee et OME ees tee lon ete Ge 
‘6 REAL STREAM PROCEDURE SIZEOFINPUTCAZ)5 VALUE Az» 00016900 
ue Fa II II III TOI III III II III III OID IO tii ick ie tick ttt 00017000 1@ 
t BEGIN. | ccesue’t ueppwdanaus eaceitedeadene ol om ow chs cratitiacntven MOM AL 1.00. acu eye hic hee See Ne et eee se eS 
o % ROUTINE OBTAINS KUMBER OF CHARACTERS Li USERS INPUT RECOR 00017200 "9 
MW % FROM THE WORD WHICH PRECEEDS THE ACTUAL USENS INPUT. 00017300 24@ 
ee % THE ACTUAL..USERS INPUL BEGINS al AQDRESS. "ae" ol ee  OOR7G00. 2 21 
a SyttA2s STssSI"3s OLieLoc SIZLORINPUTs DLisuL+5Ss OStF3CHRS 00017500 A 
23 OltsU1-33 DS?=3RESETS 00017600 21@ 
a. ae END STREAM PROCEDURE SIZROF INPUTS oo. 00017700. eee ee Ee ee a 
3 a5 LOE RHERENAREERNERNERARENNE RHR E ERED ERE ER ERE ERA EAR EEE EER eRe EEHEOOOL?BOO fe 
s@* PROCEDURE SORT(L#U)s & RECURSIVE SORT ROUTINE 00017900 1 @ 
5 27 De LACE EAL ESSA SALE CAS ALAS ECCLES ASAP EES ERAT LEASE CTIA RARER er Lee a en acs SO cs 2 
a : VALUE LseU3 00018100 pa 
:@ REAL Lous 00018200 41@ 
(Sea BEGIN REAL IeJeKeMs sf chathoaenettie et tinge hc lain Ge cecteet not R ty SOLER WOO: Wate Ree item oe = a 
iat LABEL AGAIN» TOPsBOTTOMsEXITS 00018400 a 
e” IF & NEQ U THEN 00018500 l@ 
BoC du THEN |... SistUieipidnt the ee OOU PB AOC ce. be Spt tacit tet to ia 
- BEGIN IF SORTACLLJef[21:27) GTR SGRTALUI,¢21%27] THEN 00018700 34 
@« chi ac eA aaa 00018800 ie 
— GND) cae tiaces AeA ct Baca an ne een at ote id Ate ans wen ones Ohi oe DOE OU Mt siete clos Ea Ee or i 
4g ELSE 00019000 
oe: BEGIN MS=(U+L) DIV 23 Ores hg 
POS oie ote et teaduatn ORT CLM SORT CMON Gl 08 Ace oe eet Ee ok ote ga eee anes! OO LO DOO ts if ee ek Ae ie 
be J=M+13 00019300 gi 
@ « FOR Ls2l STEP 1 WHILE SORTALLJe£21:27) LSS SURTACYI].L21827] DOS 00019400 “|@ 
gilt etek te eoten ct GUE lt bh, QM “THE Ne eee ae LC aty tonsa teat ates cake 00019500 hese Late Od teciesiey og ia a ree a Aa 
be BEGIN It=K$sL3 | : 00019600 b 
@ AGAIN? IF I GTR M THEN GO TO TOPS | 00019700 A®@ 
ee ee AF GTR OU TREN GO TO BOTTOMS — was rere 9) 01 21'S, 2) 5 eee ea ane oe one 45 
46 IF SORTACI),(21%27] LEQ SORTALJ),bz¢it27) THEN GO TO BOTTOMS 000149900 49 
er TOPS MERGECKI!=SGRTAL JI; 00020000 1 @ 
Pe aah age a ee a dat al 1 ER Bc tt at Sk ee IOVAILIO 7 
“s IF KsaK¢1 LEG UY THEN GO TO AGAIN ELSE GU EXITS 00020200 48 
@ BOTTOM! MERGECKI?sSORTACII3 00020300 j@ 
eee ee om mere re! 5, 4 Swe ell la apd ttt pt fut rosea csp ne 2 OI Oi tne, oe S550 om ces eae at hacen oie te eRe ATi oe a eas wae 
3 IF Ks*kK+41 LEQ U THEN oO TO AGAINS~ 00020500 52 
 ) EXIT? MOVECUSL4éL»MERGE(LI*SURTALLJ)5 00020600 1@ 
ee 0) 1) i Abenel Se ib bie «tbtenitwiadio ah de we tt OOUL0700, co 2° she ale lesen th gai > Bal 
END 00020800 5 
e END SORTS 00020900 of @ 
FSU IIIIIOIGICIIICIUIGIUIIUISIIGIUIIOIUIUIIIOIUINIIOIUIUIOIUIOIGIOII IORI IU io iiick inion ek cite ee 00021000 3 
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eo 
| PROCEDURE DISKWAITCI»A»9eD)3 00021100 
@ i VALUE I»eSs03 REAL IsSeDs ARRAY AL¥d]; COMMUNICATE C™8)3 00021200 
betes ROI OI IOI OI OIC UII ICICI UII IO IOI TOR IOI OO I III III ISI i iO ** eee 000213900 Seek ee SE, Flick hae at ee Dee 
41 PROCEDURE TWXOUTCAsNeT)3 00021400 
@: TORII III III III ISISIIOISIIISIIIGI OIG IDOI IIOIINIGI SINE i ici 00021500 
Oar ca ae WINE NBT Bio, ke, oS Ril nc Reccee: oe: gly be Pia Gat a id ON echt eM geteen hte heals hahah Ti oe. w 00021600. Ee a sr at Nat a te let te Ror 
- REAL AsNeT3 00021700 
@: BEGIN COMMUNICATE("11)3 00021800 
Nee meas ..BRAAK ?= BRAAK OR BOOLEANCT)4 % MCP RETURNS 1. IF BREAK OCCURRED, 00%¢1900 Si one ede Tacs Ean eed hate eek 
: ENDs 00022000 
e t JUCIE II GIIISI IIIS GOI SISO IUIUIDIISIDIIOISI SIGS IIOIO II IIDC II Grinning se 00022100 
Psa ads REAL STREAM PROCEDURE EQFCOUNTCF)S, 2 oo .00022200 el aah ee ah nee neo Sa cpr te 
FICO IOI II UIOIUIDIIGISIOIGIOIUIII III III III II II III IGG ke teteieiei #4600022 300 
eo" BEGIN 000zZ2400 
gies tivcad SERPS ACSTSSSTSA TE DUSELOC Fe DSPEWOS Pm bon oy ay spetslal iets ty Bian watt ODN PEE OU 2c. 3 err ie ae acters OS See eeeee 
i SItsFs L4CSTsSS148)3 Os=lLOc Fs OSt=nOS; 00022600 
@ et STisF3 7CSTSFSI+8)3 OT sslLOc EQFCUUNTS DStRWU93 00022700 
Pl. ost - oe END STREAM .PROCEDURE EQFCOUNTR oo vee ceees when Pies 81 O02": 0) ¢ See area eee Ate eo oe a gE 
6 FOCI IIIS II III GI III IDIGISISISISIISICIGISISII I IIIS III OIE Gielen 400022900 
a PROCEDURE MSGC(NO*SEQ)3 VALUE NOsSEGs REAL NO»SEQS 00023000 
“ nee AUDIT OIOUOI CIGD OIUIITUEIUUI OUI IC OGIO A OO UG IU taki oe 4.0.0.0 23 1.00. see BO Sieh ace wate Oe eer tone = 
a BEGIN REAL SIZ»SZ5 oC eeere 
@» REAL STREAM PROCEDURE NCONVCN*SIL)5 VALUE NS 00023300 
Pe lueaecs GING | ° 16 ste Bohn mice * itu cal Sur haerun atone mide mists dase qpiciteenen Ente. daaci edison tOOUe GUO Btw a Meee, he Can Ea at fetta 
a SIssLUC Ns DIseLOC NCUNVSs UStSHDECS UI sslI™gs DSt=7FILL3 00423560 
@* DIt=LOc¢ NCONVS SI3sLUC NCONVS IF SCH" " THEN 0ude36co 
i eerie BEGIN 2 ow Re spioyehegetbietch chien ya, sregaictelntn. oa sd dete Oh 90023700. pA ll atl re del Bp ta _ 
‘il BCIF Sc=" " THEN SItsSi+1 LLSE 00023800 
@ . BEGIN OSteCHRs TALLY*=TALLY*13 END)3 00023900 
PY sofas ST x fed oreo OF BIS Bec TN Bice ocsteng es ee de eet tk alee tees ai a a te ih ne cree OD YOO: fceuely. ate dascna ned Se alc 
“ N@STALLY3 STts_eC Ns DVItsSIZ3 Ustshps; 00024100 
e» END PROCEDURE NCONV; 000z4z200 
Pee toc ~~ ee : & Ce ee ee oe te oe oe er Oe ee ee tr i a i oe er or 2 ir i ae Orv [i oe oe oe ee 0.000 eee enn  OOVE4I0NO |. 2 Ammon a a ea ae tg aan ae tenn netn rae enone ont 
a REAL STREAM PROCEDURE MiCAsNrSIZ)3 VALUE N-S1243 00024400 
@ BEGIN 00024500 
oer DIssAs OSts7LI7T"RECORD "3 STt=LOC NJ OSs= SIZ CHR QQQe4600. Are ae Sets ee ee te 
a DSt=9 LIT " DELETED."S TALLY%*163 MIS=TALLY3 00024700 
@* END STREAM PROCEDURE Ni; 00024800 
es “a oon he OPERA RAA ARAMA AAEA EAA OR ODE A DODO de 8 oo ef Oe oe 8 Be DnB A MD A Ba Q000¢4900. sista 
; REAL STREAM PROCEDURE M2CAsWeSIZ)4 VALUE Neo S123 00025000 
tO BEGIN 00025100 
(fee DIFsAs OStS7LIT"RECGRD "3 STS sbOC NS OStsSlZ CHRS 00025200 
‘i DSt*s24L17" TS NOT IN YOUR Fale e"s TALLYt=203 M22STALLY3 00025300 
@ END STREAM PROCEDURE M23 00025400 
Ci hort cll nh a Fee _maeeeeoe SUPP eteorereeoeseoseorneraset eons secsosartssesosecoesesoscensses ps Q00E5S500 i Shai that ees 
a REAL STREAM PROCEDURE M3CA*NeSIZ)% VALUE Ne SIZ3 00025600 
@\ BEGIN | 00025700 
Mam DEN SAS DSSS24LITMIMPROPER FIX FOR RECORD "J B00 i im at ican ide eaten ee eees 
“i ST#*sLOC N3 NSssSIZ CHRF TALLY3=245 mM3ss 7ALLYs 00025900 
@ a END STREAM PROCEDURE 35 , 00026000 
tee Fe 2009.00.99 802 oot es esas eeeaeeson sar oesn Gewese nevesreronscccescccenvevescees eg VIIC6l100 pete tonic thd ae SoG ale Te ho 
REAL STREAM PROCEDURE M4CAsNsS1Z23 VALUE NeSIds 00026200 
@ BEGIN bo Bt 00026300 
cu QTESAS OSH*33LIT"MISSING GROUP MARK IN FIx RECORD "3 = ss Qe. 26400 tee ates = ns 
5 SI8=LOC N3 OStsSIZ2 CHKS TALLY?3333 M4ssTALLYs 00026500 
6} END STREAM PROCEDURE M4; 00026600 
@ | 
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REAL STREAM PROCEDURE M5CA»N»oSIZ)S VALUE NoSIZi 00026800 
BEGIN 00026900 
wave DEVSAS DSISAILIT"CANNOT LOCATE YOUR FIX STRING FOR RECORD "5 
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SUIS ISI IIIS ISI IIS SISSIES IOI aia tei itt 00029200 


STREAM PROCEDURE RETURN(AsB)3 00929300 


Eesassessestseenvasanacvervoesesystrnsessangrensseetersay ess seenene ste 20003200 


REAL PROCEDURE SI1Z(A1sA2)3 VALUE AlsAQs REAL AlsA2s % GET SIZE FROM ADKS00032500 
$12%5(A2,033915]9A1.033%15] )xb+aed,CIVI9I"AL,C3035)3 00932600 
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STt=_0C Ns OSssSIZ CHR TALLYi#413 MS2STALLY> 00027100 

END STREAM PROCEDURE M53 00027200 
SM is be Ce eee eee eee eee ee ee ee ee oe oe ee eo i Parwrackens, 4 £30 QQ... Pio at sh tie at 
(i REAL STREAM PROCEDURE MOCAsNeSIZ)3 VALUE NoSI43 00027400 
2 BEGIN 00027500 
Fee os “OTERAS DStS39LTT™NOT ENOUGH ROOM FOR YOUR FIX IN RECORD "3 godg?600 | 
4 ST8=LOC Ns OS8= SIZ CHR TALLY%=393 MOZSTALLY; 00027700 
: END STREAM PROCEDURE M63 00027806 
: eee See ia cng BHO OOO 80-00-86 OD OOF OOF OF OF-O-F- OOF 16-8 FO 80 OO Fo OOOO O08 -8 F OF OF 0888 8 OO oe O00 27: 90g... Smt eens tome ne 
: SEQ $s NCONV(SEQsSI12)3 00028000 
8 IF NO#1 THEN SZ23MqCASSEQ*eS1Z) ELSE 00028100 
*. DE .NOS2 THEN S78 2MoCAsSEQeSTZ) Fie ee eee MOO PR200. 
y IF NO=3 THEN SZt=M3(AsSEQeS1Z) ELSE 00028300 
s IF NO=4 THEN SZs=MaCArSeQeSIZ) ELSE 00028400 
eee nee seen ve el ENOFS. THEN SZPSMS CAs SE Qs SIZ) ELSE SZiSM6CAsSEQeSIZ)3 00 gd easo0 
8 TWXOUTCALOJ*#(S1Z+S2Z)°1)3 00028600 
ti END PROCEDURE MSG3 00028700 
ciate Sh te II ig IOI OUI IOI iO i fo fo Ii id eee ee O002B8R00 
DEFINE TRB=CIF SB THEN US:=SET ELSE USS=RESETSSKIP SB)#3 00028900 
u DEFINE FTC#SI:=Sl¢3s Olt=sp1+5% SKIP 3 DBs 1STRBAS 00029000 
M8 ee ee oe DEP INE CIF SSI ¢ 281453. SKIP. 3 SBS DISS0T+315T RARE 0029100 | 


eee ee eee RIO Or OIC Oi toi toe ea OOO Oi i OO a iii des deed ie ied ak at ae ae eae tt 0.029 4.0.0.0... 
ist BEGIN LOCAL ATs8T3 00029500 
al SIt=sLOC As’ DIS=LOC ATs FICS 00029600 
ie eneeia bei SLPSGOC.. 87 DIPSELOC. BU pc ICS. cece se hie Se cathe se orhtie ioldna de adit peg acelioethaentets  SOOOPS700. 2.0... 
2 : SItsLOC BTS DI2=L OC As CTF; 00029800 
ae S1T:sLOC AT$ DI8=LOc Bs CTF 00029900 
Pei eet MTR RAT SE eC BE DS RWIS Pai a ee are a ee eee ee ODO IO 00G a ace ons yn 
2 DIs=BTs STt=LOc as OSt=wySs 00030100 
END; 00030200 
ne TLS ST CLASS SSS T CSS E ATTA Se eee A WO eee ee tO NO oe te ee te ee ee ek He OOOO ZOO 
ff PROCEDURE SWAP; 00030400 
pz ee ee te pe eee ee eae eee eee ee re et ee 
Fe race rete sec OGD Nig 2 ota tna asc al ah aint AEE rs AA ha LNG St Oy ge, Gaun  gia et ioe Hae cath alten UO Mitel cates 
pal ARRAY TSoTMCOSLI3— 00030700 
5 RETURN(CSORTAsTS)3 RETURNCMERGEsTM)3 00030800 
9 ee NO. PROCEDURE SWAPS ees wen eee Se ne = ..90030900 
37 TORII IU IOI IIIS IG ICID IG RIO DIO aON kk kit tte kt eee HOOO3LOOO 
P| STREAM PROCEDURE MAKE300CFIIL»SPECS)4 VALUE SPECS 00031100 
ee BESTA EAS SESE ESSA SSE SESS SE KASASE NES ES CANS ANAL EERE AS OES OSTA EA NTS, eeeew00031200 
(| BEGIN 00031300 
an SIt=FIiIbs 3CST#SSr76)3 OLtSLOc FIILs OSs=ngS5 00031400 
A SII 14(S]ts8148)4 OltsL0C FILL: DSt=nvse (00031500 
fi SyrsLOC SPECS? DIteFIILs DSaenDSs & BLOCKING FACTORS 00931600 
END STREAM PROCEDURE MAKE3003 00931700 
45) area FOIE III IUIGISIUIGIICIIIUIIOIDISIUIIII GIGI IOUT IG Ui ito kee eee 00091800 | 
REAL STREAM PROCEDURE DECONVCX), VALVE ae 00031900 
: BEGIN SIlss_tOc xs DIss_oc DECUNVs DSs= g DEC ENDS 00032000 
BAe ans s his oss outa sds peat cen eed Casawess uaad naw ands iveubdeusage buels000071 00... 
i REAL STREAM PROCEDURE WHEREIS(X)3 & GET ADDRESS OF "x" 00032200 
: BEGIN SI&*x3s WHERETS#eSis ENDS 00032300 


STREAM PROCEDURE REFORMAT(A2»B1+64sSEQsIFLG»SFLG*EADRS)} 
ROG ISIS IIIS IOI SI IIIS ISISII IDOI IISIGOI tot iit i ii 00092900 
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00038400 


TALLY%213 FIXCHKS=TALLYs GU TO EXIT; 00038500 
END LEFT ARROW REPLACEMENTa 00038600 
— STtssveo Se oth aac oP se hs BN 00038700 
END} % IF LEFTARROW 00038800 
SvixSI; SIt2_0c SV3 Sea DStewOSs.SresSvi & START OF OLD STRING 00938900 
00039 


eo. 
COMMENT A2 IS STARTING ADDRESS OF STRING IN ARRAY “ats 00033100 
e. B1 IS ADORESS OF BLO}, 00033200 
a AMIS ADDRESS OF BL9] TFNOT TYPE DAlA»s OF BIO) IF TYPE DATA... 00033300 Witte, fa SRD es ea 
ia SE@ 7S OCTAL VALUE OF SEQUENCE NUMBER IF NUT TYPE DaTAs 00033400 
@: IFLG 1S TRUE IF SEQUENCE NUMBER APPEARS IN INPUT RECORD, 00033500 
pu SELG TS TRUE TF NOT TYPE DATA FILE. sss LSapee ethene OO SS BOOS @ bn She teas ie 
a EADRS IS ADDRESS OF LAST LEFT AKRGW IN USERS INPUT. “RECORD. 00VU33700 
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po BOCIF SCHT OM THEN STARSIA1 ELSE JUMPOOUTIE So aes Pe See tar rae re OE nee eet ee te Beak 
eo: 3 "90034400 
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Q1*02 ARE START/FINISH ADDRESS OF "ULD STRING"» 00036100 
rd] Ni9N2 ARE START/FINISH ADDRESS UF “NEW STRING", 00036200 
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Ol BEGIN 00038000 
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_.. SZ20.108S LENGTH OF. "EXISTING" STRINGe oo POO : 
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00956300 


00056500 
00056600 


00056800 
00056900 


009027000... 


00057100 
00057200 


- OOOS7300. .. 


00057400 
00057500 


900537600... 


00057700 
00057800 


90058000 
00056010 


00038100 00 


00058200 
00058300 


0090584090 


PEL SE — : 
BEGIN % NON*SEQUENCEL TYPE FILE 
pee oe TP TSE OE (TCT ST SEQ) re 1 GTR WAR TREN tee 
BEGIN 
TSEQ $* EQFMARKS CLOSECOLOTAB)3 
LTGT 98 MAME : See ee ee 


00058500 
00058600 


_ 90958700 


: END; 


0 Re 
F_TSEQ LSS PSEQ THEN % NO CHANGE TU THIS RECORD _ 


a te rete atime ere en ntl eterna nb ren ei 


00058800 
00058906 


00039000 


00059100 
00059206 


00054600 00. 


00055200... 
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BEGIN ‘00U5940C 
EQ@LTOGS=TRUES SE@S=TSEGS GO TO akITENEWS 00059500 
Bite a wee NR ele mie le ct a Bf ae St iil el 08 od hel en ads ogee ol ul OU IE OO i ts on vn a 
1 EQLTOG t= TSEQ = PSEG3 % WEW RECORD SEQ. MATCHES OLO 00059700 
2 Botenee , 00059800 
hee Bek EN UE tN NS Ea oe, cM pac tia cc te, ete nlc OOO OMe sary nx ie eae obctetlaiyh aaste p 
4 Retonne 00060000 
§ IF PSEQSEQFMARK THEN GG TG ENDMERGES 00060100 
Die ea RE COE kT Ne OU I ae ss idan glydr nate cle ke OOO BUENO. Ans 
} BEGIN 00060300 
8 BFULL "FALSE; 00060400 
eee .PREViSPSEQs & SAVE CURRENT PSEQ NUMBER 2 beosoO 
Ly PPTRS=PPTR¢13 % GET THE KEXT PSEY NUMBER 00060600 
te PSEQPS(PWORDESSORTAALCPPTR, (36S) *PPTR,(4325))2,C21%27]); 00060700 
eee CODES SPWORDALLI2)3 -OOOGCUBOO 
13) IF PSEQ@=PREV AND CODE.(47#11=0 ThEN GO PCYCLES & NEW RECURD FOLLOWS 00060900 
4 IF CHANGES THEN IF NUT BRAAK THEN MSG(1sPREV)3 % "DELETED" MESSAGE 00061000 
See ne a KF EQLTOG THEN & "CLD" RECORD LS VELETED.. bs aitsenk J itcpgieruecaicer, i COURT SO Os. es 
e BEGIN 00061200 
o COPYTOG:=TRUES & COPY WILL BE REQUIRED 00061300 
Bye NCHGESNCHG+13. % STORE "DELETE" INSTRUCTIUNS CR THIS RECORD O00@1400 
19: CHNGSUNCHGeLBBSSIsNCHGo L435) ]¢eTCTRIL1:4731)3 ® DELETE CODE 00061500 
te IF MONITR THEN % PUT BLANK RECURD IN MONITOR FILE 00061550 
i" .. BEGIN. . — Fetegt ert near ea 00061560... .. 
_ BLANKLINECAsPREV)3 00061570 
a WRITECMONF IL e10sal*J)LTLUUr 3 00061580 
= END: . etabicis eigeetdatecte, fe eindicwldatedgwaosees , DOUGIS 91: 
GU TO TLOOPS % ADVANCE "ULDTAD" PUINTER 00061600 
Re END$ &® ITF EQLTOG 00061700 
a enenee weee AO.TO COMPARES &% IF NOT EQLTOG OO BOR ke 
END’ % IF CODE = 1 00061900 
IF CODE=3 THEN % FIX CODE» CHECK FORK RECURD FIRST 00062000 
Sie BE RIN. geet i acinbs ete Ta oe en sen he ODO et OC ines inlch alin ite 
IF NOT CEQLTOG OR RFULL) THEN % MU SUCH” “RECORD 00062200 
BEGIN 0006230G 
ee oo set G CARP SE G2 an SNOT DN yO ee as che tae ete tad ot aos Se a ons OOD WARGO noe hoect wo, warm inieade wade ah: 
GO TO NEXTP$ 00062500 
! END3 00062600 
ai Ae te aS ahd NO hs etl acces les A le Sale oo Ny Se Sh iad MOE oa Se sang Mage sa eth, te i OO OO a Shee te el ye 
pt TANKADRS?SBASELPWORD,.£4!4]] + PWORD.L8:8]5 %& TANK ROW ADDRESS 00062800 
8 DISKWAITC1s+As30eTANKADRS)3 % GET INPUT FROM TANK FILE 00062900 
c. AZ 38 AL + PWORDe£1615]% & STARTING ADDRESS OF INPUT 00063000, 
é NCHRS ¢= SIZEQFINPUTCA2)“15 % POSITION GF LAST CHARACTER IN USERS INPUT 00063100 
41 EAURS t= CA2 + NCHRS.f4025]) & NCHRSU30845:3)3 % END OF RCRU ADDRESS 00063200 
4 CODE NEQ 3 THEN &% NOT A FIX COMMAND Se Ie ae Rare ee eae NAA) 91° > (ic 10 © Rae ee ee ee 
a BEGIN 00063400 
REFORMATCA2*®B1eB4ePSEGs (PWORD.L122)=0)»SFLGSEADRS)3 00063500 
#5 ne _-BFULLISTRUES &@ NEW RECORD IN "B" sae Ear le gti ld el a To ee OW OOO tes 0S. Ee MERE eS 
| GO TO NEXTP3 00063700 
END; 00063800 
: TF NOT FIXCHK(A2sOtsC2sNIsN2sEADRS) THEN & "FIX" SYNTAX ERRUR == -00063900 ss £ 
o BEGIN 00064000 
MSGC3PSEQ)3 &% "IMPROPER FIX" 00064100 
st IN Ma TD a hag Sh pel at Ma al Raa aa tea tn ae ee tan OOM DO O89 ce ence ceegees Pe shes ee etn 
END3 00064300 
IF N2.033315) GTR AS THEN % SHOULD AUT BE HERE 00064400 
_._ BEGIN. Bi tal Wir <i nat Sateen oak fo eRe eto AO Oe Ste Ta a 
MSGC4sPSEQ)3 % "MISSING GROUP MAKK* 00064600 
GO TO NEXTPS 00064700 


it I OOE4EOD 
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IF NOT BFULL THEN &% GET RECURD TO BE "FIXED" 00064900 


& 
e BEGIN 00065000 e 
geo READCSCURCELICTIaltep ted) o) PUT TA MBs os el eel el yl iS ws OOOO ST DD. cs chet aa cua seers ee ele oS 
sy BFULLt#TRUE3 00065200 le 
@,; ENDS 00065300 : 
NOT LOCATE (A sR22BaebdsRECSZeOpeSd0rzStZ(OteG2)) THEN jbesang. fs 
‘ BEGIN 00065500 ‘ 
@|: MSG(SePSEQ)3 % "CAKNUT FIND FIX STRING" 0006560U :|@ 
fee otek ea eager tenet NE A eat pent Rl Sattar ce Bel Arusha Eh OT nt Nath, Oy wim, Aine Stet, tu one OUEST OUsnsecr ie ewiatced DiR Olie hares ote L a eae et 7 
y END; 00065800 c 
eo: IF SIZ(B32B4) LSS CSZNtBSTZCN14N2Z))*9Z0 THEN 00065900 1/@ 
Piya ek oee! BEGIN. sa eh Bi Ser saa ea a Saale tah etc MAE 5 LOB pa Nt ia aptltebe ces tc Daas te oat sl GaP na atte OO I ONY ik, Bc acaus, extislistiediipi nec Suerte Se ee a 2 
10 MSG(6sPSEQ)3 % "NOT ENGUGH ROUM FUR FIX" 00066100 
eo" GO TG NEXTP3 00006200 
ee ei ei ok ENO, sate eas ea et tO RA 200 dare vn ade astndag ices 
13 EDIT(82,84,85+SZ0sN1»SZN»eSFLG)# % REPLACE ULD STKING WITH NEW STRING 00066400 
@: Ses 00066500 
Ml NEXT P2 LOOK AT NEXTOMIPY WORD cette wuts te tee eer, 00006600 . 
he Kereee 00006700 
ev PREVt=PSEQs % SAVE CURRENT "LP" SEQUENCE NUMBER 00066800 
Bene PRT RESPPTIR¢13 & CHECK NEXT "1P" WORD | Geecnctie Get eos OOO NES 00+. 
ie PSEQt=(PWORDS=SQRTAALPPTR, (3835 )sPPTR, L433 Sh)). Ce1t27 03° 7 NEXT sip" WDe 00067000 
@™ CODEt=PWORD.(1!2)3 00067100 
| —--——-——... DP PREVSPSEQ THEN 60 TO.PCYCLES % DUPLICATE,» MORE To. BE DONE .ssss—scpcgge7200 
2 IF NOT BFULL TREN GO TO COMPARES % IGNORE LAST INPUT 00067300 
@ SEQt=PREVs % USING TRIS SEQ. NUMBER 00067400 
——--——.- WRITE CPATCHe 10280") 22 PCT2SpCT+13.% MOVE RECORD TG PATCH FILE anD COUNT 00067500 . 
IF NOT E@LTOG THEN COPYTOG#=TRUES &% NEW ADDITICA IF NOT EQLTUG 00067600 
G NCHGt=NCHG+13 & SAVE "ADDITION" INSTRUCTION 00067700 
— CHNGSINCHG A LIB ISI ONCHGLHZtSIII=TCIOCREAL(CEGLIOGIIizs47t1)3. = GBD t—“‘“‘“‘ ‘“ ;COCO 
IF MONITR THEN WRITECMONFIL»10260%*)) 0 MONEOF 33 00067810 
S GO TO SKIPS MONEOF! MCNITRI=FALSES SKIPS 00067820 
a CHANGES THEN IF NOT BRAAK THEN % PRINT TRIS | RECORD oe IOUETION OO 
BEGIN 00068000 
rd] IF NUMBERED THEN 00068100 
Seen BEGIN. sh hie Neh aah ean Gu pci vai eee Reis SM out shot nyt ht ti hat iad Grameen ete. see, IO Obie © Ok. 4.0 2.2 
: REKNUMBERCALsNCT+2)3 00068300 
@ TWXOUTCALOI9091)5 00068400 
Pies, END, Fal eee aaah tk Ae BAe rete Sate Ried dey en Ae OO BO te, ons 80% ou er catcchati ny dte, neaantase c32 Suma, Suet. cee = 
OUTFORMATCA1+B1»B4s SQUASHED? SFL GS PRNI DB 00068600 a7 
@ | TWXOUTCALO)sB101)3 00068700 4@ 
ia ct TaN UB ts Sek dae ceed ny fel hse taualte Ri NMSA Gta een oN uJ Bots Na ae tegatana Ne OOO BOO ch, ha Ld Peale oh ener nates ph hoe heed Sree ie Jame, = 
! Pinas 00068900 40 
@ |: WRITENEWS 00069000 «|@ 
ee. © Oe NN Ban es le ia ee ee tao it ae pe _000 691 O08 Se. Seer he Ae ots a ei eel BS eS met tan . 42 
NCTteNCT#15 & OUTPUT FILE RECORD COUNT 00069200 4 
@ | IF SFLG THEN ® WRITE TAB FILE 1Ff NOT TYPE CaTA 7 00069300 4@ 
(ne :} ee 000869400, ‘ek 
IF NPTRE=NPTR#1 GTR 29 THEN & SEGMENT IS FILLED “00069500 ‘6 
eo BEGIN 00069600 
_WRITECNEWTABs 30sNC*I])5 % CUTPUT TU DISK CO Y700 
NPTR#=03 | 00069800 
@ END3 . 00069900 
__NENPTRI t2ORSEQC22 21 s27GNCTO4 3231693  POOCCD—=—e— 
END3 00070100 
@ | IF NOT BRAAK AND PRNTCHK THEN # PRINTING STILL UK 00070200 
Se BEGUN ou 2s Aso ee Ee ee saat Sissel OO oo cyte ie ee 
IF SEQ GTR HRANGE THEN & GET NEW PARAMETERS 00070400 
@ IF PRNTCHK t# PC LSS NPARAMS THEN 00070506 
ae eee BEGIN Ate eases cess —_ 00070600 
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t=NPTR STEP § UNT O NCI FMARK 


fo | | 00075500 7 | 5) 


eo. q@ 
LRANGESSHRANGE $sPARAMSEPCSEPCH1] ocov07C0 
e@ ENDTOG=LRANGESEOFMARKS % WANTS "END" PRIATED 0000/0800 @ 
tees ay IF PC LSS WPARAMS THEN REL 0151 261° (0 V0 hee eae 
f IF PARAMS([PC41},C1%1)=1 THEN 00071000 
@ | HRANGE tePARAMS(PCt=PC+1}«(21!2/95 00071100 1@ 
4 IF NOT CBFULL AND CHANGES) THEN ® NOT ALKEACY PRINTED “00071300. 4 
e: IF SEG GE@ LRANGE THEN IF Sw LEs HRANGE THEN ® IN RANGE 00071400 1@ 
eae BEGIN. ahest hia Pee ates x! Whe, Aecee ct 01 e195 op 10 c ee 6 
! IF NOT. BFULL “THEN a ET “RECORD 009071606 : y 
e: READCSOURCELTCTIs105B( «J )3 00071700 |@ 
Sd a TF. NUMBERED. THEN eee se i ee ADOUT LEO: : Plier ig Tae te es Sats 9 
ih BEGIN 00071900 e 
e: REKNUMBERCAL»NCT#1)3 oour2uod 1@ 
Wa icles  TWXOUTCALO]2 901) 3. FS TT ne [SIRO RE Ae RE TACMEE o 1 6) OW" ils ee ee ee 1 
a END} 00072200 i 
r PTS re a 060072300 "@ 
_ - TWXOUTCALO] +8101)3— Eee se ae PE REO @ 0 © WY Pr |e 6 Ota een Ns 
vi ENDS 0007/2500 hi 
a END} % IF NOT BRAAK AND PRNTCHK 00072600 "1@ 
 BFULLESFALSE? ith head eee ate SOPOT OO. ditt ui en Sing nie Ione. tae mo 18 
\s IF EQ@LTOG THEN GO TO TLUUP ELSE Go TU ‘COMPARES 00072800 ta 
@ ny Boteoncece 00072900 1@ 
Pid _ENDMERGES ce ntlds SUAS ce OUUT TOON. Fe Ce ee ee eS 21 
2 Detanenve 00073100 . 
@ IF ENOTOG THEN IF NUT BRAAK THEN ® FRET Meapt 00073200 al® 
pal _ BEGIN coy 2 Bok Bes UE Sede MOOT AA OD 22.40% m0 wigs, dasa diedgstey eee nd, SMe hats St oie a oh oo, 24 
25 Nt #= NCHGS N2 t= TOT=43 00073400 2 
@« IF NCHG GEQ O THEN 00073405 \@ 
eee BEGIN. St a i a Seca te ii aes ce oes MOOTED Ale aq b Shc eath ar gin Segs Boe tS ee tn 2 
2 ENOLOOP: 00073415 29 
er IF BOOLEANC CLFSCHNGSINI, C36%54eN1 eC 925I1I2.0181)) THEN & DELETIONOOUl3420 a1@ 
————— . eC e |l ere a OOO R425 Ota IM sca ate ee et ca 
i IF 1,032!16]=N2 THEN N2t=Ner13 % DELETED SCURCEFILE RECORD 00073430 
@» IF CNL3SNL"1) GEQ O THEN GU TO ENDLOOP:; 00073435 21@ 
BS ee ENDS Si carci apt A a ty tan ple Shee owt asoaycoe, OO? 244 O)- _ paypal es 
ua IF BOOLEANCI,(C1!11) THEN I? 1 ELSE Jt=1,l3e:16);3 00073445 a 
@« END ELSE I t= "43 000/3450 33@ 
Mi peeattecios RE ANS GEO 0) ORC) GEg 0) THEN * TREWE ARE RECORDS IN THE FILE. 00073455. 3e 
i IF NOT (CI GEQ TCT AND CHANGES) “THEN % NOT ALREADY PRINTED 00073500 ay 
@* BEGIN 00073600 1@ 
9 a AFL GTR_ON2 THEN READCPATCHLPCT110,60%)) % GET FROM PATCH __ 00073700, 39 
I ELSE READCSOURCEINZ]/10-H[*])3 0007 3900 40 
@' IF NUMBERED THEA 00073900 1@ 
eee er neem reese = (24° 9 © | Oe EC eee Oe fees Bs i galt aca at pA OO EMO DO! 95 atu 8 vat iiat ie e Soe at at bi 
a REKNUMBERCALsNCT41)3 00074100 4 
e TWXOUTCALO]2991)5 00074200 @ 
t—_— oe END}. seer eoaieeeae Gael oles ace te OO PURO Os eet 6 op mieten 4g 
i ~OUTFORMATCAL> “1, »B4s SUUASHED » SFLGsPRNT)3 00074400 ‘6 
@ | TWXOUTCALOI]281.1)3 00074500 «@ 
a ic UI tek AN ce an 8 at th ha cen py see tay cn asa ae ag pe a OOOTAGOO yen oan etetee ee oy Liye beeen “p 
9 ENDS 00074700 4s 
@ IF SFLG THEN % FINISH UP TAB FILES 00074800 51 @ 
ah ta tata rae eg hE ing ce a ee te aa es ga ssh 00074900 a A Ree ae 51 
IF NPTR? SNPTR+1 GTR 29 THEN & SEGMENT IS FILLED 00075000 5 
r BEGIN 00075100 1@ 
toe eafeatets WRITECNEWTAB,3C,NC*#))3_% UUTPUT TO DISK. 5200. cae eye, ‘ 
NPTRI@O} 00075300 5 
@ ENDS 00075400 | @ 
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Yo 
| WRITE CNEWTABs 300NC #193 000756CC 
@. ENDS 00076100 
____. REWIND PATCH) 3. ae peels eh Naga lo nie Midis hehe Soest tet OO FOO UO taco... cate 
( IF NOT COPYTOG THEN .7 CUPY NOT REQUIRED 00076300 
@ BEGIN 00076400 
Beste eeea ee PON RO SER oh NYE CNG I ee as ets asst te eda ee ee st kG nk OP BE Ob okeca ease ts onnnaee 
4 BEGIN . 000/6600 
@: NIS=CHNGSEISL9BES)]516L4325)1.632816)3 00076706 
D nok ee  READCPATCH2 102 B6*))3. @ REPLACCMENT RECORD 00076800. 
WRITECSOURCEENL110,80*1)4 % INSERT RECORD 00076900 
tO END} 00077000 
MF ONCHG GEQ O THEN. & RESADUUST BLOCKING FACTORS... Or TIOO CC 
10 BEGIN 00077200 
@' MAKE 300 (SQURCE»(10830( 30336812 )8300C158938 15 RL001934514)))3 90977300 
js canna eta CLOSECSOURCE) LOCK(NEWTABS#)§ 2 nee Si eee O0077TaOQ0. 
3 END} 00077500 
@ « END % IF COPY NOT REQUIRED 00077600 
Pe ee ELSE. pieaudee deteseeeeie 2 ee 00077700. 
Ne BEGIN 000/7800 
eo” CLOSECSOURCE)$ NPTRI=li=-13 FINTUGS2FALSES MTSSTRUES NEXTPATCHS 00077900 
igi are ee a. oe ee es hada ctaeietes aad uc lie ie mada hen ae ee a 0200780 Q Q. 
9: READINS 0007610y 
eo” ee 00078200 
Mo READCSROE1OeBCHJILEUFIA [381413 & READ SERIAL FILE... 00078300 
los ee OOVrd4ud 
@» CYCLE? 00078500 
LS eee ee coe Ser ae 00.07 8609 
hg IF NOT FINTOG THEN ¥ MURE CHANGES OOUss70U 
@ IF ISN1 THEN ® INSERTIONs REPLACEMENT OR DELETION 00078800 
| eee ea , BEGIN... ........ Nake ee suiee eee oe ee OOO PB OOO ee. cco 2 
a IF NWORDsf181]51 THEN % DELETION. 00079000 
@ BEGIN NEXTPATCHS GO TU READING ENv} 00079100 
: ae = IF NWORDL281)5C_ THEN % INSERTION» NOT REPLACEMENT oo pgo79z0g 
# BEGIN 00079300 
@ READ(PATCHs10%AC#1)3 00079400 2o| @ 
Pas WRITECWRKFE IL, 10 eAle])4 MTP SF ALSES ae 00979500 
vt NEXTPATCHS GC TO CYCLE3 00079600 
ee» ENDS 00079700 2@ 
ae % REPLACEMENT. Sattonsn po Mines ta tienee ne OO EB ROU ect o.vindh nada. 
ai REAOCPATCH# 10BC*] 3 00079900 
@. NEXTPATCHS 00080000 @ 
re . €NDE & TF Tena Bt he Mi AN ay, : came Perec ee OURO LOD i202 bo ass Oe 
4 WRITECWRKFILs10e80L4])3 MTt=FALSES 00080200 
@: GO TC READINS 00080300 @ 
: aie St ae nici ct at ae mace’ Yaga Pa eat EEA ce Sc thea eating ns coi Sins Eg ad Theat I Lee a i at nt Se reer Se ie ee A =a siaschtst cataahedce Micstectaldat oa tata 
: 5 
@ Keg 00080600 4@ 
5 _ WHILE NOT FINTOG 0c. alas cata ete ae 00080700. 
BEGIN 00080800 
eo READCPATCHs 108 *))3 00080900 e 
WRITE CWRKE TL 10s Bla) )G MISEFALSES _ooveig0q as 
NEXTPATCH3 00081100 e 
® ENDS | 00081200 ‘ 
LE MT.UTHEN READ SEEKCWREEILLOJ)S & OPEN DUIPUT Flue C™C™~™—C—S KO —C—C~s = 
CLOSEC(SRCE)# LUCKCWRKFILe*)s LOCKCNEWT Adp*)3 00041300 e 
OF END} % IF COPYTQOG 00081400 5 
ec ee ND AE CK Fore cs se rcs SB oe ae tes tie a te Chesca thie hi aoe Pe eee OO LUO. 
END PROGRAM. 00081500 e 
] ENDSEND. LAST CARD ON OCRDING TAPE 99999999 5 
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